home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / SkoEd / M2_Macros / skoed.macro
Encoding:
Text File  |  1996-09-27  |  335 b   |  33 lines
  1. PROC If;
  2.   "IF   THEN";
  3.   Return;
  4.   "ELSE";
  5.   Return;
  6.   "END;";
  7.   Up;
  8.   Up;
  9.   Left;
  10. CORP;
  11. !LI = If;
  12. PROC While;
  13.   "WHILE () DO";
  14.   Return;
  15.   "END;";
  16.   Up;
  17.   Right;
  18.   Right;
  19.   Right;
  20. CORP;
  21. !LW = While;
  22. !LP = "PROCEDURE";
  23. !LB = "BEGIN";
  24. !LE = "END;";
  25. PROC Repeat;
  26.   "REPEAT";
  27.   Return;
  28.   "UNTIL ();";
  29.   Left;
  30.   Left;
  31. CORP;
  32. !LR = Repeat;
  33.